home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d3 / dbmail.arc / MAILIST.PRG < prev    next >
Encoding:
Text File  |  1988-06-19  |  2.0 KB  |  96 lines
  1. NOTE MAILIST - MAIN MENU FOR MAIL LIST SYSTEM    5/14/85
  2. CLEAR
  3. SET BELL OFF
  4. SET TALK OFF
  5. IF FILE('ML001.MEM')
  6.     RESTORE FROM ML001
  7.     IF XXF
  8.         STORE FILE('&FDEV..DBF').AND.FILE('&FDEV..NDX')    TO XXF
  9.         ENDIF
  10. ELSE
  11.     DO ML001
  12.     ENDIF
  13. ERASE
  14. IF DATE()#'00/00/00'
  15.     STORE DATE()    TO D
  16.     ENDIF
  17. STORE F TO OK
  18. DO WHILE .NOT. OK
  19. @ 1,0 SAY 'ENTER CURRENT DATE (MM/DD/YY)' GET D PICTURE '99/99/99'
  20. READ
  21. STORE VAL( $(D,1,2)) TO W
  22. STORE VAL( $(D,4,2)) TO X
  23. STORE VAL( $(D,7,2)) TO Y
  24. STORE .NOT.(Y<78 .OR. W<1 .OR. W>12 .OR. X<1 .OR. X>VAL( $("312931303130313130313031",(W-12*INT(W/12))*2-1,2)) .OR. ( W=2 .AND. X>28 .AND. Y/4.0>INT(Y/4.0) ) ) TO OK
  25. ENDDO
  26. SET DATE TO &D
  27. RELEASE D,OK,W,X,Y
  28. DO WHILE T
  29. ERASE
  30. ? '         L  I  S  T     M  A  N  A  G  E  R'
  31. ?
  32. ? '         VERSION 2.3       '
  33. ?? DATE()
  34. ?
  35. ? '            MAIN MENU'
  36. ?
  37. ? '        1 - ENTER/EDIT MAILING LIST DATA'
  38. ? '        2 - CREATE MAILING LABEL or STANDARD LETTER FILE'
  39. ? '        3 - PRINT MAILING LIST FILE'
  40. ? '        4 - MAILING LIST FILE MAINTENANCE'
  41. ? '        5 - MAINTAIN CODE MASTER'
  42. ?
  43. ? '        98 - RETURN TO dBASE'
  44. ? '        99 - RETURN TO SYSTEM'
  45. ?
  46. IF XXF
  47.     ? '    '
  48.     ?? FDEV
  49.     ?? '= Mailing List file in use'
  50. ELSE
  51.     ? 'NO FILE IN USE. SELECT OPTION 4 BEFORE PROCEEDING WITH MAIL LIST ACTIVITIES.'
  52.     ENDIF
  53. ?
  54. INPUT '    ENTER OPTION NUMBER' TO SEL
  55. DO CASE
  56. CASE SEL=1 .AND.XXF
  57.     DO ML0100
  58. CASE SEL=2 .AND.XXF
  59.     DO ML0200
  60.     SELECT PRIMARY
  61. CASE SEL=3 .AND.XXF
  62.     DO ML0300
  63. CASE SEL=4
  64.     DO ML0400
  65. CASE SEL=5
  66.     DO ML0500
  67. CASE SEL=98
  68.     ERASE
  69.     STORE DATE()    TO D
  70.     ? 'RETURNING TO dBASE'
  71.     RELEASE SEL,DEV
  72.     SAVE TO ML001
  73.     RELEASE FDEV,XXF,D,STANDARD,CONDENSE
  74.     USE
  75.     SET TALK ON
  76.     RETURN
  77. CASE SEL=99
  78.     STORE DATE()    TO D
  79.     ERASE
  80.     ? 'RETURNING TO SYSTEM'
  81.     RELEASE SEL,DEV
  82.     SAVE TO ML001
  83.     QUIT
  84. CASE SEL<7 .AND. .NOT.XXF
  85.     ?
  86.     ? 'PLEASE SELECT OPTION 4 BEFORE PROCEEDING WITH MAIL LIST PROCESSING.'
  87.     ? 'Press any key to continue.'
  88.     WAIT
  89. ENDCASE
  90. ENDDO
  91. N 4 BEFORE PROCEEDING WITH MAIL LIST PROCESSING.'
  92.     ? 'Press any key to continue.'
  93.     WAIT
  94. ENDCASE
  95. ENDDO
  96.